home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / dos_win / winsock / maillist / 94-05.Z / 94-05 / text0092.txt < prev    next >
Encoding:
Text File  |  1994-05-31  |  2.2 KB  |  67 lines
  1. On Thu, 5 May 1994, Chris Rowley wrote:
  2.  
  3. > >        I am no expert by any means but is it possible to write everything in 
  4. > >Visual Basic? <:-) (maybe a dumb question) Can the interface to winsock (VBX) 
  5. > >be written in VB itself?
  6. > 
  7. > Hi Paul,
  8. >    As visual basic stands, it looks like the answer in no. The hostent data 
  9. > structure (which is used for such, oh, noteworthy functions like 
  10. > gethostbyname, cannot be realized in VB because it contains lists of lists. 
  11.  
  12. At the risk of sounding like a zealot, I think that ALMOST ANYTHING to do 
  13. with WINSOCK can be written in VB.  I have done a basic set of routines 
  14. in VB calling the WINSOCL DLL directly - these worked in blocking mode, 
  15. and I am currently porting them to work in async mode - this would be 
  16. impossible except for the wonderful MSGBLAST.VBX (public domain from 
  17. Microsoft).  Meanwhile, to call the blocking "get host by name", use 
  18. something like this fragment:
  19.  
  20. Type hostent
  21.     h_name_addr As Long
  22.     h_aliases_ptr_addr As Long
  23.     h_addrtype As Integer
  24.     h_length As Integer
  25.     h_addr_list_ptr_addr As Long
  26. End Type
  27.  
  28. Declare Function gethostbyname Lib "winsock.dll" (ByVal hostname As
  29. String) As Long
  30. Declare Sub hmemcpy Lib "Kernel" (dest As Any, src As Any, ByVal n As Long)
  31.  
  32. Function TCPHostLookup (host$) As Long
  33.  
  34.  
  35.     Dim thishost As hostent
  36.     Dim hostptr As Long
  37.     Dim addrp As Long
  38.     Dim addr1 As Long
  39.  TCPHostLookup = 0   ' assume the werst
  40.  
  41.     hostptr = gethostbyname(ByVal host$)
  42.     If hostptr = 0 Then
  43.  
  44.        Debug.Print "lookerr:" & TCPGetErrorMsg()
  45.     Else
  46.         Debug.Print "hostptr="; hostptr
  47.         hmemcpy thishost, ByVal hostptr, 16
  48.         hmemcpy addrp, ByVal thishost.h_addr_list_ptr_addr, 4
  49.         Debug.Print "addrp=", addrp
  50.         If addrp <> 0 Then
  51.             hmemcpy addr1, ByVal addrp, 4
  52.             Debug.Print "final addr=", addr1
  53.             TCPHostLookup = addr1   ' the jackpot
  54.         End If
  55.     End If
  56. End Function
  57.  
  58. Note: TCPGetErrorMsg() just gets the last WS error and decodes into English
  59.  
  60. Goodluck
  61.  
  62. Kent Fitch                           Ph: +61 6 276 6711
  63. ITSB   CSIRO  Canberra  Australia    kent.fitch@its.csiro.au
  64. "We dare not trust our wit for making our house pleasant for our friends,
  65.  so we buy ice-cream"     -  Ralph Waldo Emerson
  66.  
  67.